home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS13.ADF / AmigaBasicProgs / BasicDemos / BitPlanes (.txt) < prev    next >
AmigaBASIC Source Code  |  1986-08-05  |  846b  |  37 lines
  1. REM <<      AmigaBasic        >>  
  2. REM << Find Ptrs to BitPlanes >>
  3. REM << Carolyn Scheppner  CBM >>
  4.  
  5. depth = 5
  6. x = 320
  7. y = 200
  8.  
  9. SCREEN 2,x,y,depth,1
  10. WINDOW 2,"TEST1",,15,2
  11.  
  12. sWindow&   = WINDOW(7)
  13. sScreen&   = PEEKL(sWindow& + 46)
  14. sViewPort& = sScreen& + 44
  15. sRastPort& = sScreen& + 84
  16. PRINT "Ptr to RastPort structure ="sRastPort&
  17. sColorMap& = PEEKL(sViewPort& + 4)
  18. colorTab&  = PEEKL(sColorMap& + 4)
  19. sBitMap& = PEEKL(sRastPort& + 4)
  20. PRINT "Ptr to BitMap structure ="sBitMap&
  21. FOR k = 0 TO depth-1
  22.   bPlane&(k) = PEEKL(sBitMap&+8+(4*k))
  23.   PRINT "Ptr to BitPlane"k" ="bPlane&(k)
  24. NEXT
  25.  
  26. REM << Test - Random Poke to the BitPlanes >>
  27. FOR j = 3000 TO 3159
  28.   FOR k = 0 TO depth-1
  29.     POKE bPlane&(k)+j, INT(255*RND)
  30.   NEXT  
  31. NEXT
  32.  
  33. FOR de = 1 TO 5000 : NEXT
  34. WINDOW CLOSE 2
  35. SCREEN CLOSE 2
  36. END
  37.